home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbfaqr01.zip / BAUDDET.BAS < prev    next >
BASIC Source File  |  1992-08-09  |  1KB  |  46 lines
  1.   DECLARE SUB Check (Tmp$, Baud%)
  2.   DEFINT A-Z
  3.  
  4.   '  ================================================================
  5.   '  B A U D  D E T E C T I O N  R O U T I N E       HPS (1992)
  6.   '  ================================================================
  7.  
  8.   CLS
  9.   LOCATE 1, 1, 1, 1, 9
  10.   OPEN "COM2:2400,N,8,1,rb32000" FOR RANDOM AS #1 LEN = 256
  11.   PRINT #1, "AT E1 L3 S11=50 &D2 &C1 X3"
  12.  
  13.    DO
  14.        Keyinput$ = INKEY$
  15.        IF Keyinput$ = CHR$(27) THEN EXIT DO
  16.     IF Keyinput$ <> "" THEN
  17.        PRINT #1, Keyinput$;
  18.     END IF
  19.     IF NOT EOF(1) THEN
  20.        modeminput$ = INPUT$(LOC(1), #1)
  21.        Tmp$ = Tmp$ + modeminput$
  22.        Check Tmp$, Baud
  23.        IF Baud THEN EXIT DO
  24.        PRINT modeminput$;
  25.     END IF
  26.    LOOP
  27.  
  28.    PRINT : PRINT "Connect Made At"; Baud; "baud."
  29.  
  30.    CLOSE 1
  31.    END
  32.  
  33.    SUB Check (Tmp$, Baud)
  34.  
  35.     IF INSTR(Tmp$, "CONNECT 300") > 0 THEN
  36.        Baud = 300: EXIT SUB
  37.     ELSEIF INSTR(Tmp$, "CONNECT 1200") > 0 THEN
  38.        Baud = 1200: EXIT SUB
  39.     ELSEIF INSTR(Tmp$, "CONNECT 2400") > 0 THEN
  40.        Baud = 2400: EXIT SUB
  41.     ELSEIF INSTR(Tmp$, "CONNECT 9600") > 0 THEN
  42.        Baud = 9600: EXIT SUB
  43.     END IF
  44.  
  45.    END SUB
  46.